<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '**************************************************************** '** 版权所有：烈火工作室 演示网站http://www.strongfire.cn ** '** QQ:839225572 邮箱：strongfire2008@163.com ** '** 非正版用户不得擅自非法修改用于商业用途！查出必究。 ** '**************************************************************** %> <% act=Request("act") id=Request("id") if (act<>""and id<>"") then Set rs=Server.CreateObject("Adodb.RecordSet") sql="Select tj From article Where id="&id rs.open sql,conn,1,3 if (rs.bof and rs.EOF) then response.Write "" else if act="addtj" then rs("tj")=1 end if if act="deltj" then rs("tj")=0 end if rs.update response.Write "" end if rs.close set rs=nothing end if %> 修改信息列表


<% Set rs=Server.CreateObject("ADODB.RecordSet") sql="select ID,Title,hits,addTime from article where tj =1 order by id desc" rs.Open sql,conn,1,1 tjlhsum=0 if rs.eof and rs.bof then response.Write("") else do while not rs.eof %> <% rs.movenext tjlhsum=tjlhsum+1 loop end if rs.close set rs=nothing %>
推荐信息列表
ID号
标题
浏览数
日期
操作
暂时没有记录
<%=rs("ID")%>
 " target=_blank><%=rs("Title")%>
<%=rs("hits")%>
<%=rs("addTime")%>
注：只需设置<%=tjrownum%>条信息，推荐信息只显示<%=tjrownum%>条。 目前共<%=tjlhsum%>条
 
输入推荐信息id号：